Option Strict Off
Option Explicit On
Public Class FormatoCelda
    Private m_IdFormatoCelda As Short
    Private m_IdTipoFormato As Short
    Private m_Descripcion As String
    Private m_Formato As String

    Public Property IdFormatoCelda() As Short
        Get
            IdFormatoCelda = m_IdFormatoCelda
        End Get
        Set(ByVal Value As Short)
            m_IdFormatoCelda = Value
        End Set
    End Property

    Public Property IdTipoFormato() As Short
        Get
            IdTipoFormato = m_IdTipoFormato
        End Get
        Set(ByVal Value As Short)
            m_IdTipoFormato = Value
        End Set
    End Property

    Public Property Descripcion() As String
        Get
            Descripcion = m_Descripcion
        End Get
        Set(ByVal Value As String)
            m_Descripcion = Value
        End Set
    End Property

    Public Property Formato() As String
        Get
            Formato = m_Formato
        End Get
        Set(ByVal Value As String)
            m_Formato = Value
        End Set
    End Property

    Public ReadOnly Property Key() As String
        Get
            Return m_IdFormatoCelda & "." & m_IdTipoFormato
        End Get
    End Property
End Class